home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1998 February / Amiga-CD 1998 #2.iso / c / verzeichniskopieren < prev    next >
AmigaDOS Script File  |  1996-07-22  |  945b  |  30 lines
  1. .KEY Verzeichnis/A,Zielname/A,Platz/A
  2. .BRA [
  3. .KET ]
  4. set defaultdir "RAM:"
  5. ;
  6. ; Kopiert das angegebene Verzeichnis an einen Ort, den es erfragt
  7. ;
  8.  
  9. If not exists "[Verzeichnis]"
  10.    :c/requestchoice20 "Hinweis" "Verzeichnis [Verzeichnis] exisitiert nicht" "Oops - brich ab!" >NIL:
  11. Else
  12.    :c/requestfile20 $defaultdir TITLE "Wohin kopieren?" WIDTH=300 HEIGHT=300 DRAWERSONLY SAVEMODE >ENV:auswahl[$$]
  13.    If not warn
  14.       :c/checkdevavail `getenv auswahl[$$]` [Platz]
  15.       if warn
  16.           :c/requestchoice20 >nil: Information "Nicht genug Platz vorhanden!" ok
  17.       else
  18.           Cd "[Verzeichnis]"
  19.           Cd >ENV:olddir[$$]
  20.           Cd `getenv auswahl[$$]`
  21.           C:Copy "$olddir[$$]" "[Zielname]" ALL CLONE QUIET
  22.           Cd "[Zielname]"
  23.           delete Steuerung#? QUIET FORCE >NIL:
  24.           Cd "$olddir[$$]"
  25.           :C/RequestChoice20 "Hinweis" "Verzeichnis kopiert" "OK" >NIL:
  26.       Endif
  27.    Endif
  28.    unsetenv auswahl[$$]
  29. Endif
  30.